Gerardo de la vega (1,2), Federico Triñanes (1), Andres Gonzalez Ritzel (1) Â
1 Laboratorio de EcologÃa QuÃmica, Universidad de la República. Montevideo, Uruguay.
2 Grupo de EcologÃa de Poblaciones de Insectos, IFAB CONICET-INTA EEA Bariloche. Bariloche, Argentina.
06/July/2021
Diversity of behaviors tracked in an individuals or groups of insects, ranging from detailed pose orientation and wing posture to walking or running actions
Reduce subjective bias and the time for achieve high dataset
Automated image-based tracking:
delavega.gerardo@gmail.com / https://github.com/Gdlv/trackJR
firstJulia() Connect R and Julia and create functions for Julia.
trackJR() Tracks the insect position. Output a dataframe with frame, x and y position.
trackJR_ggplot() Plots as a ggplot element.
trackJR_Batch() Generate a list with videos tracked.
trackJR_Batch_ggplot() Add the ggplot to each video elements of the list.
trackJR_box() Draw a box in a ggplot.
trackJR_pbox() Extract the points from a box.
trackJR_summ() Extract the mean number of frames in each box.
trackJR_clean() Select points in conflict to solve the tracked position.
trackJR_correctXY() Correct the X and the Y position of tracked dataframe with a trackJR data as reference.
trackJR_refpoint() Use a point reference to correct a data trackJR.
JuliaCall::julia_command("
begin
using Statistics
end
")
JuliaCall::julia_command("
brightness(c) = 0.3 * c.r + 0.59 * c.g + 0.11 * c.b
")
delavega.gerardo@gmail.com / https://github.com/Gdlv/trackJR
library(shiny)
library(miniUI)
ui=miniPage(
tags$h1("Create a Region of Interest"),
fluidRow(
...
)
runGadget(ui, server, viewer = viewer)
}
delavega.gerardo@gmail.com / https://github.com/Gdlv/trackJR
dataT<-trackJR(mypathDirandFile)
graf<-trackJR_ggplot(mypathDirandFile,dataT)
library(gganimate)
graf2g<-graf+ transition_components(fr)+
ease_aes(x = 'sine-out', y = 'sine-out') +
shadow_wake(1, size = 3, alpha = TRUE, wrap = F,colour = "green",
falloff = 'sine-in', exclude_phase = NULL)
animate(graf2g, nframes = 100,duration=5,renderer = gifski_renderer("gganim.gif"))
delavega.gerardo@gmail.com / https://github.com/Gdlv/trackJR